From 2cfcae86296c489544bd4bb9cde8e0696cbd9995 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Sat, 14 Mar 2026 13:04:53 +0000 Subject: [PATCH] [PATCH] TODO: Put a short summary on the line above and replace this paragraph with a longer explanation of this change. Complete the meta-information with other relevant fields (see below for details). To make it easier, the information below has been extracted from the changelog. Adjust it or drop it. Gbp-Pq: Name Version_2_7_2pre13 --- cmpnew/gcl_cmplam.lsp | 7 +- cmpnew/gcl_cmplet.lsp | 7 +- cmpnew/gcl_cmpmulti.lsp | 2 + cmpnew/gcl_cmptop.lsp | 19 +- cmpnew/gcl_cmpvar.lsp | 5 +- git.tag | 2 +- info/gcl-si.info | 72 +++---- info/gcl-si.info-1 | 417 +++++++++++++++------------------------- info/gcl-tk.info | 4 +- info/gcl-tk.info-1 | 3 +- info/gcl-tk.info-2 | 5 +- 11 files changed, 220 insertions(+), 323 deletions(-) diff --git a/cmpnew/gcl_cmplam.lsp b/cmpnew/gcl_cmplam.lsp index 1c111b0..b7e8009 100644 --- a/cmpnew/gcl_cmplam.lsp +++ b/cmpnew/gcl_cmplam.lsp @@ -73,7 +73,7 @@ (cons (list (car procls) (or (if (atom (car ll)) (car ll) (caar ll)))) (decls-from-procls (cdr ll) (cdr procls) body))))) -(defun c1lambda-expr (args &aux (regs (pop args)) requireds tv +(defun c1lambda-expr (args osrc &aux (regs (pop args)) requireds tv doc body ss is ts other-decls (ovars *vars*) (*vars* *vars*) narg (info (make-info)) ctps) @@ -91,6 +91,11 @@ (check-vdecl (mapcar 'var-name tv) ts is) (setq body (c1decl-body other-decls body)) + (let ((x (set-difference + (remove-if-not 'si::specialp + (append regs (mapcar 'var-name *undefined-vars*))) + ss))) + (when x (push `(declare (special ,@x)) (cddr osrc)))) (ref-vars body requireds) (dolist (var requireds) (check-vref var)) diff --git a/cmpnew/gcl_cmplet.lsp b/cmpnew/gcl_cmplet.lsp index fb14d9c..b9d72a2 100644 --- a/cmpnew/gcl_cmplet.lsp +++ b/cmpnew/gcl_cmplet.lsp @@ -39,8 +39,9 @@ (unless (eq t (var-type v)) (var-type v))) (var-loc v))) (unless (var-type v) - (cmpwarn "Type mismatches binding declared ~s variable ~s to type ~s." - (cmp-unnorm-tp (var-dt v)) (var-name v) (cmp-unnorm-tp t1))) + (keyed-cmpnote (list (var-name v) 'type-propagation 'type 'init-type) + "Type mismatches binding declared ~s variable ~s to type ~s." + (cmp-unnorm-tp (var-dt v)) (var-name v) (cmp-unnorm-tp t1))) (keyed-cmpnote (list (var-name v) 'type-propagation 'type 'init-type) "Setting init type of ~s to ~s" (var-name v) (cmp-unnorm-tp (var-type v))))) @@ -149,6 +150,8 @@ (setq body nil)) (c1add-globals (set-difference ss vnames)) + (let ((x (set-difference (remove-if-not 'si::specialp vnames) ss))) + (when x (push `(declare (special ,@x)) (cdr args)))) (check-vdecl vnames ts is) (setq body (c1decl-body other-decls body)) diff --git a/cmpnew/gcl_cmpmulti.lsp b/cmpnew/gcl_cmpmulti.lsp index 6accd79..82cf9ff 100644 --- a/cmpnew/gcl_cmpmulti.lsp +++ b/cmpnew/gcl_cmpmulti.lsp @@ -252,6 +252,8 @@ (push v vars))) (c1add-globals (set-difference ss vnames)) + (let ((x (set-difference (remove-if-not 'si::specialp vnames) ss))) + (when x (push `(declare (special ,@x)) (cddr args)))) (setq init-form (c1arg (cadr args) info)) diff --git a/cmpnew/gcl_cmptop.lsp b/cmpnew/gcl_cmptop.lsp index d4991a0..a325fc5 100644 --- a/cmpnew/gcl_cmptop.lsp +++ b/cmpnew/gcl_cmptop.lsp @@ -437,9 +437,6 @@ ((let let* lambda) `(,(car form) ,(mapcar (lambda (x) (if (atom x) x `(,(car x) ,@(portable-source (cdr x) t)))) (cadr form)) - ,@(let* ((r (delete-if (lambda (x) (or (not (si::specialp x)) (is-declared-special x (cddr form)))) - (mapcar (lambda (x) (if (atom x) x (car x))) (cadr form)))));FIXME key name - (when r `((declare (special ,@r))))) ,@(ndbctxt (portable-source (cddr form) t)))) ((quote function side-effects) form) (infer-tp `(,(car form) ,(cadr form) @@ -462,10 +459,6 @@ ,@(let ((*mlts* (append fns *mlts*))) (ndbctxt (portable-source (cddr form) t)))))) (multiple-value-bind `(,(car form) ,(cadr form) ,(portable-source (caddr form)) - ,@(let ((r (remove-if (lambda (x) (or (not (si::specialp x)) - (is-declared-special x (cdddr form)))) - (cadr form)))) - (when r `((declare (special ,@r))))) ,@(ndbctxt (portable-source (cdddr form) t)))) ((case ccase ecase) `(,(car form) ,(portable-source (cadr form)) ,@(mapcar (lambda (x) `(,(car x) ,@(portable-source (cdr x) t))) (cddr form)))))) @@ -811,7 +804,7 @@ ; (true "Ct") ((cons (eql vv) t) (fm-to-string (cadr form))) ((cons (member char-value fixnum-value character-value) t) (fm-to-string (caddr form))) - ((eql most-negative-fixnum) #.(string-concatenate "(" (write-to-string (1+ most-negative-fixnum)) "- 1)")) + ((eql #.most-negative-fixnum) #.(string-concatenate "(" (write-to-string (1+ most-negative-fixnum)) "- 1)")) (fixnum (format nil "~a" form)); string character (float (format nil "~10,,,,,,'eG" form)) ((complex float) @@ -895,9 +888,9 @@ (let ((a (member '&aux ll))) (ldiff ll a))) -(defun do-l1-fun (name src e b &aux (wns *warning-note-stack*) (*recursion-detected* (cons (list name) *recursion-detected*))) +(defun do-l1-fun (name src e b osrc &aux (wns *warning-note-stack*) (*recursion-detected* (cons (list name) *recursion-detected*))) - (let* ((l (c1lambda-expr src)) + (let* ((l (c1lambda-expr src osrc)) (osig (car e)) (sig (lam-e-to-sig l)) (rd (cdar *recursion-detected*)) @@ -907,7 +900,7 @@ (cond (rep (keyed-cmpnote (list name 'recursion) "Reprocessing ~s: ~s ~s" name osig sig) (setq *warning-note-stack* wns);FIXME try to use with-restore-vars - (do-l1-fun name src e b)) + (do-l1-fun name src e b osrc)) (l)))) @@ -932,7 +925,7 @@ (*src-inline-recursion* (when vis (list (make-tagged-sir (list (sir-name name)) tag (ttl-ll (cadr src)))))) (*c1exit* (list (make-c1exit name))) (*current-form* `(defun ,name)) - (l (do-l1-fun name (cdr (new-defun-args src tag)) e b)) + (l (do-l1-fun name (cdr (new-defun-args src tag)) e b src)) (clv (get-clv l))) (setf (second e) (mapcan (lambda (x) (when (symbolp x) (list (cons x (get-sig x))))) (info-ref (cadr l))) @@ -941,7 +934,7 @@ (fifth e) (logior (if (iflag-p (info-flags (cadr l)) side-effects) 0 2) (if (= (length clv) 0) 1 0)) (sixth e) name) (when *sig-discovery* - (when (symbol-package name) (unless (eq name 'lambda) (push (cons name (apply 'si::make-function-plist e)) si::*sig-discovery-props*)))) + (when (symbol-package name) (unless b (push (cons name (apply 'si::make-function-plist e)) si::*sig-discovery-props*)))) l)) ;; top-level lex-ref walker diff --git a/cmpnew/gcl_cmpvar.lsp b/cmpnew/gcl_cmpvar.lsp index 9af186d..300b01c 100644 --- a/cmpnew/gcl_cmpvar.lsp +++ b/cmpnew/gcl_cmpvar.lsp @@ -509,8 +509,9 @@ (setq t1 (ensure-known-type (coerce-to-one-value t1))) (let* ((tp (type-and (var-dt v) t1))) (unless (or tp (not (and (var-dt v) t1))) - (cmpwarn "Type mismatches setting declared ~s variable ~s to type ~s from form ~s." - (cmp-unnorm-tp (var-dt v)) (var-name v) (cmp-unnorm-tp t1) (car form))) + (keyed-cmpnote (list (var-name v) 'type-propagation 'type) + "Type mismatches setting declared ~s variable ~s to type ~s from form ~s." + (cmp-unnorm-tp (var-dt v)) (var-name v) (cmp-unnorm-tp t1) (car form))) (keyed-cmpnote (list (var-name v) 'type-propagation 'type) "Setting var-type on ~s from ~s to ~s, form ~s, max ~s" (var-name v) (cmp-unnorm-tp (var-type v)) (cmp-unnorm-tp tp) (car form) (cmp-unnorm-tp (var-mt v))) diff --git a/git.tag b/git.tag index 0252445..d415ef4 100644 --- a/git.tag +++ b/git.tag @@ -1 +1 @@ -"Version_2_7_2pre12" +"Version_2_7_2pre13" diff --git a/info/gcl-si.info b/info/gcl-si.info index 718250a..b0a1375 100644 --- a/info/gcl-si.info +++ b/info/gcl-si.info @@ -1,4 +1,4 @@ -This is gcl-si.info, produced by makeinfo version 7.1 from gcl-si.texi. +This is gcl-si.info, produced by makeinfo version 7.2 from gcl-si.texi. This is a Texinfo GCL SYSTEM INTERNALS Manual @@ -12,46 +12,46 @@ END-INFO-DIR-ENTRY  Indirect: gcl-si.info-1: 319 -gcl-si.info-2: 347893 +gcl-si.info-2: 343510  Tag Table: (Indirect) Node: Top319 Node: Numbers1239 -Node: Sequences and Arrays and Hash Tables23636 -Node: Characters49429 -Node: Lists56825 -Node: Streams and Reading70599 -Node: Special Forms and Functions95986 -Node: Compilation121638 -Node: Symbols134272 -Node: Operating System144031 -Node: Command Line144247 -Node: Operating System Definitions148429 -Node: Environment Variables154786 -Node: Structures156375 -Node: Iteration and Tests157927 -Node: User Interface161377 -Node: Doc170439 -Node: Type173724 -Node: GCL Specific176384 -Node: Bignums185027 -Node: C Interface187717 -Node: Available Symbols187909 -Node: External Shared Libraries188400 -Node: System Definitions203986 -Node: Regular Expressions238596 -Node: Debugging244844 -Node: Source Level Debugging in Emacs245045 -Node: Low Level Debug Functions249290 -Node: Miscellaneous250290 -Node: Environment250498 -Node: Inititialization251123 -Node: Low Level X Interface251667 -Node: Compiler Definitions252264 -Node: JAPI GUI Library Binding258393 -Node: Function Index277447 -Node: Variable Index347893 +Node: Sequences and Arrays and Hash Tables23635 +Node: Characters49430 +Node: Lists56802 +Node: Streams and Reading70576 +Node: Special Forms and Functions95964 +Node: Compilation121601 +Node: Symbols133502 +Node: Operating System143262 +Node: Command Line143478 +Node: Operating System Definitions147660 +Node: Environment Variables154017 +Node: Structures155607 +Node: Iteration and Tests157159 +Node: User Interface160609 +Node: Doc169668 +Node: Type172953 +Node: GCL Specific175611 +Node: Bignums184163 +Node: C Interface186852 +Node: Available Symbols187044 +Node: External Shared Libraries187535 +Node: System Definitions203120 +Node: Regular Expressions235093 +Node: Debugging241340 +Node: Source Level Debugging in Emacs241541 +Node: Low Level Debug Functions245786 +Node: Miscellaneous246786 +Node: Environment246994 +Node: Inititialization247619 +Node: Low Level X Interface248163 +Node: Compiler Definitions248760 +Node: JAPI GUI Library Binding254730 +Node: Function Index273784 +Node: Variable Index343510  End Tag Table diff --git a/info/gcl-si.info-1 b/info/gcl-si.info-1 index 4d8d760..094f722 100644 --- a/info/gcl-si.info-1 +++ b/info/gcl-si.info-1 @@ -1,4 +1,4 @@ -This is gcl-si.info, produced by makeinfo version 7.1 from gcl-si.texi. +This is gcl-si.info, produced by makeinfo version 7.2 from gcl-si.texi. This is a Texinfo GCL SYSTEM INTERNALS Manual @@ -96,7 +96,7 @@ File: gcl-si.info, Node: Numbers, Next: Sequences and Arrays and Hash Tables, Returns, as three values, the integer interpretation of significand F, the exponent E, and the sign S of the given float, so that E - FLOAT = S * F * B where B = (FLOAT-RADIX FLOAT) + FLOAT = S * F * B where B = (FLOAT-RADIX FLOAT) F is a non-negative integer, E is an integer, and S is either 1 or -1. @@ -130,7 +130,7 @@ File: gcl-si.info, Node: Numbers, Next: Sequences and Arrays and Hash Tables, or into RESULT-BIT-ARRAY otherwise. -- Function: INT-CHAR (integer) - Package:LISP + Package:SI Performs the inverse of CHAR-INT. Equivalent to CODE-CHAR in GCL. @@ -211,9 +211,9 @@ File: gcl-si.info, Node: Numbers, Next: Sequences and Arrays and Hash Tables, Returns an integer produced by performing the logical operation specified by OP on the two integers. OP must be the value of one - of the following constants: BOOLE-CLR BOOLE-C1 BOOLE-XOR - BOOLE-ANDC1 BOOLE-SET BOOLE-C2 BOOLE-EQV BOOLE-ANDC2 BOOLE-1 - BOOLE-AND BOOLE-NAND BOOLE-ORC1 BOOLE-2 BOOLE-IOR BOOLE-NOR + of the following constants: BOOLE-CLR BOOLE-C1 BOOLE-XOR + BOOLE-ANDC1 BOOLE-SET BOOLE-C2 BOOLE-EQV BOOLE-ANDC2 BOOLE-1 + BOOLE-AND BOOLE-NAND BOOLE-ORC1 BOOLE-2 BOOLE-IOR BOOLE-NOR BOOLE-ORC2 See the variable docs of these constants for their operations. @@ -441,7 +441,7 @@ File: gcl-si.info, Node: Numbers, Next: Sequences and Arrays and Hash Tables, Package:LISP Returns, as three values, the significand F, the exponent E, and - the sign S of the given float, so that E FLOAT = S * F * B where B + the sign S of the given float, so that E FLOAT = S * F * B where B = (FLOAT-RADIX FLOAT) S and F are floating-point numbers of the same float format as @@ -865,7 +865,7 @@ File: gcl-si.info, Node: Numbers, Next: Sequences and Arrays and Hash Tables, Package:LISP Returns the largest integer not larger than the NUMBER divided by - DIVISOR. The second returned value is (- NUMBER (* first-value + DIVISOR. The second returned value is (- NUMBER (* first-value DIVISOR)). -- Function: PLUSP (number) @@ -943,7 +943,7 @@ File: gcl-si.info, Node: Sequences and Arrays and Hash Tables, Next: Character elements except that all elements not satisfying TEST are replaced with - NEWITEM. SEQUENCE may be destroyed. + NEWITEM. SEQUENCE may be destroyed. -- Function: FIND-IF (test sequence &key (from-end nil) (start 0) (end (length sequence)) (key #'identity)) @@ -1630,7 +1630,7 @@ File: gcl-si.info, Node: Sequences and Arrays and Hash Tables, Next: Character Package:LISP Combines all the elements of SEQUENCE using a binary operation - FUNCTION. If INITIAL-VALUE is supplied, it is logically placed + FUNCTION. If INITIAL-VALUE is supplied, it is logically placed before the SEQUENCE. -- Function: STRING-LESSP (string1 string2 &key (start1 0) (end1 @@ -1672,10 +1672,10 @@ File: gcl-si.info, Node: Characters, Next: Lists, Prev: Sequences and Arrays STRING. This is faster than CHAR. -- Constant: CHAR-SUPER-BIT - Package:LISP The bit that indicates a super character. + Package:SI The bit that indicates a super character. -- Constant: CHAR-FONT-LIMIT - Package:LISP The upper exclusive bound on values produced by + Package:SI The upper exclusive bound on values produced by CHAR-FONT. -- Function: CHAR-DOWNCASE (char) @@ -1685,7 +1685,7 @@ File: gcl-si.info, Node: Characters, Next: Lists, Prev: Sequences and Arrays returns CHAR. -- Function: STRING-CHAR-P (char) - Package:LISP + Package:SI Returns T if CHAR can be stored in a string. In GCL, this function always returns T since any character in GCL can be stored in a @@ -1720,7 +1720,7 @@ File: gcl-si.info, Node: Characters, Next: Lists, Prev: Sequences and Arrays order; NIL otherwise. -- Constant: CHAR-HYPER-BIT - Package:LISP The bit that indicates a hyper character. + Package:SI The bit that indicates a hyper character. -- Function: CODE-CHAR (code &optional (bits 0) (font 0)) Package:LISP @@ -1734,7 +1734,7 @@ File: gcl-si.info, Node: Characters, Next: Lists, Prev: Sequences and Arrays Returns the code attribute of CHAR. -- Constant: CHAR-CONTROL-BIT - Package:LISP The bit that indicates a control character. + Package:SI The bit that indicates a control character. -- Function: CHAR-LESSP (char &rest more-chars) Package:LISP @@ -1744,7 +1744,7 @@ File: gcl-si.info, Node: Characters, Next: Lists, Prev: Sequences and Arrays upper-case equivalent is used. -- Function: CHAR-FONT (char) - Package:LISP + Package:SI Returns the font attribute of CHAR. @@ -1761,7 +1761,7 @@ File: gcl-si.info, Node: Characters, Next: Lists, Prev: Sequences and Arrays order; NIL otherwise. -- Constant: CHAR-META-BIT - Package:LISP The bit that indicates a meta character. + Package:SI The bit that indicates a meta character. -- Function: GRAPHIC-CHAR-P (char) Package:LISP @@ -1777,7 +1777,7 @@ File: gcl-si.info, Node: Characters, Next: Lists, Prev: Sequences and Arrays same. -- Constant: CHAR-BITS-LIMIT - Package:LISP The upper exclusive bound on values produced by + Package:SI The upper exclusive bound on values produced by CHAR-BITS. -- Function: CHARACTERP (x) @@ -1802,13 +1802,13 @@ File: gcl-si.info, Node: Characters, Next: Lists, Prev: Sequences and Arrays Returns T if CHAR is an upper-case character; NIL otherwise. -- Function: CHAR-BIT (char name) - Package:LISP + Package:SI Returns T if the named bit is on in the character CHAR; NIL otherwise. In GCL, this function always returns NIL. -- Function: MAKE-CHAR (char &optional (bits 0) (font 0)) - Package:LISP + Package:SI Returns a character object with the same code attribute as CHAR and with the specified BITS and FONT attributes. @@ -1875,7 +1875,7 @@ File: gcl-si.info, Node: Characters, Next: Lists, Prev: Sequences and Arrays Returns T if CHAR is either numeric or alphabetic; NIL otherwise. -- Function: CHAR-BITS (char) - Package:LISP + Package:SI Returns the bits attribute (which is always 0 in GCL) of CHAR. @@ -1886,7 +1886,7 @@ File: gcl-si.info, Node: Characters, Next: Lists, Prev: Sequences and Arrays specified RADIX. Returns NIL if no such character exists. -- Function: SET-CHAR-BIT (char name newvalue) - Package:LISP + Package:SI Returns a character just like CHAR except that the named bit is set or cleared, according to whether NEWVALUE is non-NIL or NIL. This @@ -2642,7 +2642,7 @@ File: gcl-si.info, Node: Streams and Reading, Next: Special Forms and Function Package:LISP Prints OBJECT in the mostly readable representation. Returns - OBJECT. Equivalent to (WRITE OBJECT :STREAM STREAM :ESCAPE T). + OBJECT. Equivalent to (WRITE OBJECT :STREAM STREAM :ESCAPE T). -- Function: PRINC (object &optional (stream *standard-output*)) Package:LISP @@ -3226,7 +3226,7 @@ File: gcl-si.info, Node: Special Forms and Functions, Next: Compilation, Prev Package:LISP List of all the lambda-list keywords used in GCL. -- Function: GET-SETF-METHOD (form) - Package:LISP + Package:SI Returns the five values (or five 'gangs') constituting the SETF method for FORM. See the doc of DEFINE-SETF-METHOD for the meanings @@ -3373,7 +3373,7 @@ File: gcl-si.info, Node: Special Forms and Functions, Next: Compilation, Prev (defun name lambda-list {decl | doc}* {form}*) Defines a function as the global function definition of the symbol - NAME. The complete syntax of a lambda-list is: ({var}* [&optional + NAME. The complete syntax of a lambda-list is: ({var}* [&optional {var | (var [initform [svar]])}*] [&rest var] [&key {var | ({var | (keyword var)} [initform [svar]])}* [&allow-other-keys]] [&aux {var | (var [initform])}*]) The doc-string DOC, if supplied, is saved as @@ -3465,7 +3465,7 @@ File: gcl-si.info, Node: Special Forms and Functions, Next: Compilation, Prev doc of PPRINT for the output-formatting. -- Variable: *EVALHOOK* - Package:LISP If *EVALHOOK* is not NIL, its value must be a function + Package:SI If *EVALHOOK* is not NIL, its value must be a function that can receive two arguments: a form to evaluate and an environment. This function does the evaluation instead of EVAL. @@ -3586,7 +3586,7 @@ File: gcl-si.info, Node: Special Forms and Functions, Next: Compilation, Prev -- Function: APPLYHOOK (function args evalhookfn applyhookfn &optional (env nil)) - Package:LISP + Package:SI Applies FUNCTION to ARGS, with *EVALHOOK* bound to EVALHOOKFN and with *APPLYHOOK* bound to APPLYHOOKFN. Ignores the hook function @@ -3697,7 +3697,7 @@ File: gcl-si.info, Node: Special Forms and Functions, Next: Compilation, Prev to NIL. -- Function: GET-SETF-METHOD-MULTIPLE-VALUE (form) - Package:LISP Returns the five values (or five 'gangs') constituting + Package:SI Returns the five values (or five 'gangs') constituting the SETF method for FORM. See the doc of DEFINE-SETF-METHOD for the meanings of the gangs. The third value (i.e., the list of store variables) may consist of any number of elements. See the doc of @@ -3756,7 +3756,7 @@ File: gcl-si.info, Node: Special Forms and Functions, Next: Compilation, Prev returns NIL. -- Macro: DEFINE-SETF-METHOD - Package:LISP + Package:SI Syntax: (define-setf-method access-fun defmacro-lambda-list {decl | doc}* @@ -3776,7 +3776,7 @@ File: gcl-si.info, Node: Special Forms and Functions, Next: Compilation, Prev (documentation 'NAME 'setf). -- Special Form: COMPILER-LET - Package:LISP + Package:SI Syntax: (compiler-let ({var | (var [value])}*) {form}*) @@ -3839,7 +3839,7 @@ File: gcl-si.info, Node: Special Forms and Functions, Next: Compilation, Prev STATEMENTs. -- Variable: *APPLYHOOK* - Package:LISP Used to substitute another function for the implicit + Package:SI Used to substitute another function for the implicit APPLY normally done within EVAL. If *APPLYHOOK* is not NIL, its value must be a function which takes three arguments: a function to be applied, a list of arguments, and an environment. This function @@ -3933,7 +3933,7 @@ File: gcl-si.info, Node: Special Forms and Functions, Next: Compilation, Prev from the UNWIND-PROTECT form. -- Function: EVALHOOK (form evalhookfn applyhookfn &optional (env nil)) - Package:LISP + Package:SI Evaluates FORM with *EVALHOOK* bound to EVALHOOKFN and *APPLYHOOK* bound to APPLYHOOKFN. Ignores these hooks once, for the top-level @@ -4030,7 +4030,7 @@ File: gcl-si.info, Node: Compilation, Next: Symbols, Prev: Special Forms and -- Function: LINK (files image &optional post extra-libs (run-user-init t) &aux raw init) - Package:LISP + Package:COMPILER On systems where dlopen is used for relocations, one cannot make custom images containing loaded binary object files simply by @@ -4227,31 +4227,17 @@ keyword is supplied to compile-file and *fasd-data* is not eq to arrays. Please note that lisp functions are not (yet) displayed with their lisp names. Please see also the PROFILE function. - -- Function: GPROF-SET (begin end) - Package:SYSTEM - - GCL now has preliminary support for profiling with gprof, an - externally supplied profiling tool at the C level which typically - accompanies gcc. Support must be enabled at compile time with - -enable-gprof. This function sets the address range used by - GPROF-START in specifying the section of the running program which - is to be profiled. All subsequent calls to GPROF-START will use - this new address range. By default, the range is set to begin at - the starting address of the .text section, and to end at the - current end of the running core. These default values can be - restored by calling GPROF-SET with both argments set to 0. - -- Variable: *DEFAULT-SYSTEM-P* Package:COMPILER Specifies the default setting of :SYSTEM-P used by COMPILE. Defaults to NIL. -- Variable: *DEFAULT-C-FILE* Package:COMPILER Specifies the default setting of :C-FILE used by - COMPILE. Defaults to NIL. + COMPILE. Defaults to NIL. -- Variable: *DEFAULT-H-FILE* Package:COMPILER Specifies the default setting of :H-FILE used by - COMPILE. Defaults to NIL. + COMPILE. Defaults to NIL. -- Variable: *DEFAULT-DATA-FILE* Package:COMPILER Specifies the default setting of :DATA-FILE used @@ -4303,8 +4289,8 @@ File: gcl-si.info, Node: Symbols, Next: Operating System, Prev: Compilation, Package:LISP Look on property list of SYMBOL for property with specified - INDICATOR. If found, splice this indicator and its value out of the - plist, and return T. If not found, returns NIL with no side + INDICATOR. If found, splice this indicator and its value out of + the plist, and return T. If not found, returns NIL with no side effects. -- Function: SYMBOL-PACKAGE (symbol) @@ -4927,7 +4913,7 @@ Several environment variables affect GCL: -- Environment Variable: GCL_MEM_BOUND A positive integer bounding GCL's heap to 1<<(n+1) bytes. Trumps - GCL_MEM_MULTIPLE. Defaults to sizeof(long)-1. + GCL_MEM_MULTIPLE. Defaults to sizeof(long)-1. -- Environment Variable: GCL_GC_ALLOC_MIN A positive float indicating the minimum fraction of heap to be @@ -4988,7 +4974,7 @@ File: gcl-si.info, Node: Structures, Next: Iteration and Tests, Prev: Operati making a lisp structure correspond to a C structure. -- Function: HELP (&optional symbol) - Package:LISP + Package:USER GCL specific: Prints the documentation associated with SYMBOL. With no argument, this function prints the greeting message to GCL @@ -5119,7 +5105,7 @@ File: gcl-si.info, Node: User Interface, Next: Doc, Prev: Iteration and Tests Package:LISP Subtracts the second and all subsequent NUMBERs from the first - NUMBER. With one arg, negates it. + NUMBER. With one arg, negates it. -- Macro: UNTRACE Package:LISP @@ -5150,7 +5136,7 @@ File: gcl-si.info, Node: User Interface, Next: Doc, Prev: Iteration and Tests Evaluates FORM in the single-step mode and returns the value. -- Variable: *BREAK-ENABLE* - Package:LISP GCL specific: When an error occurrs, control enters to + Package:SI GCL specific: When an error occurrs, control enters to the break loop only if the value of this variable is non-NIL. -- Special Variable: / @@ -5170,8 +5156,8 @@ File: gcl-si.info, Node: User Interface, Next: Doc, Prev: Iteration and Tests Package:LISP Holds the I/O stream used by the GCL debugger. -- Variable: *BREAK-ON-WARNINGS* - Package:LISP When the function WARN is called, control enters to - the break loop only if the value of this varialbe is non-NIL. + Package:SI When the function WARN is called, control enters to the + break loop only if the value of this varialbe is non-NIL. -- Function: CERROR (continue-format-string error-format-string &rest args) @@ -5483,7 +5469,7 @@ File: gcl-si.info, Node: Type, Next: GCL Specific, Prev: Doc, Up: Top Returns T if X is of the type TYPE; NIL otherwise. -- Function: COMMONP (x) - Package:LISP + Package:SI Returns T if X is a Common Lisp object; NIL otherwise. @@ -5548,7 +5534,7 @@ File: gcl-si.info, Node: GCL Specific, Next: C Interface, Prev: Type, Up: To *************** -- Function: SYSTEM (string) - Package:LISP + Package:SI GCL specific: Executes a Shell command as if STRING is an input to the Shell. Not all versions of GCL support this function. At @@ -5580,13 +5566,8 @@ File: gcl-si.info, Node: GCL Specific, Next: C Interface, Prev: Type, Up: To Returns a string that identifies the machine version of the machine on which GCL is currently running. - -- Function: BY () - Package:LISP - - GCL specific: Exits from GCL. - -- Macro: DEFCFUN - Package:LISP + Package:SI Syntax: (defcfun header n {element}*) @@ -5633,9 +5614,8 @@ File: gcl-si.info, Node: GCL Specific, Next: C Interface, Prev: Type, Up: To C-type: { object | int | char | float | double } - -- Macro: CLINES - Package:LISP + Package:SI Syntax: (clines {string}*) @@ -5650,7 +5630,7 @@ File: gcl-si.info, Node: GCL Specific, Next: C Interface, Prev: Type, Up: To Trumps any limits specified in the environment. -- Function: ALLOCATE (type number &optional (really-allocate nil)) - Package:LISP + Package:SI GCL specific: Sets the maximum number of pages for the type class of the GCL implementation type TYPE to NUMBER. If REALLY-ALLOCATE @@ -5658,7 +5638,7 @@ File: gcl-si.info, Node: GCL Specific, Next: C Interface, Prev: Type, Up: To be allocated immediately. -- Function: GBC (x) - Package:LISP + Package:SI GCL specific: Invokes the garbage collector (GC) with the collection level specified by X. NIL as the argument causes GC to @@ -5666,7 +5646,7 @@ File: gcl-si.info, Node: GCL Specific, Next: C Interface, Prev: Type, Up: To everything. -- Function: SAVE (pathname) - Package:LISP + Package:SI GCL specific: Saves the current GCL core image into a program file specified by PATHNAME. This function depends on the version of GCL. @@ -5675,7 +5655,7 @@ File: gcl-si.info, Node: GCL Specific, Next: C Interface, Prev: Type, Up: To permanent, and causes no future gc of currently loaded .o files. -- Function: HELP* (string &optional (package 'lisp)) - Package:LISP + Package:USER GCL specific: Prints the documentation associated with those symbols in the specified package whose print names contain STRING @@ -5684,7 +5664,7 @@ File: gcl-si.info, Node: GCL Specific, Next: C Interface, Prev: Type, Up: To searched. -- Macro: DEFLA - Package:LISP + Package:SI Syntax: (defla name lambda-list {decl | doc}* {form}*) @@ -5701,7 +5681,7 @@ File: gcl-si.info, Node: GCL Specific, Next: C Interface, Prev: Type, Up: To DECL-SPECs. -- Macro: DEFENTRY - Package:LISP + Package:SI Syntax: (defentry name arg-types c-function) @@ -5710,8 +5690,8 @@ File: gcl-si.info, Node: GCL Specific, Next: C Interface, Prev: Type, Up: To consists of a calling sequence to the C language function specified by C-FUNCTION. The interpreter ignores this form. The ARG-TYPES specifies the C types of the arguments which C-FUNCTION requires. - The list of allowed types is (object char int float double string). - Code will be produced to coerce from a lisp object to the + The list of allowed types is (object char int long float double + string). Code will be produced to coerce from a lisp object to the appropriate type before passing the argument to the C-FUNCTION. The c-function should be of the form (c-result-type c-fname) where c-result-type is a member of (void object char int float double @@ -5753,7 +5733,6 @@ File: gcl-si.info, Node: GCL Specific, Next: C Interface, Prev: Type, Up: To (setf (aref a n) (code-char 0))) a) - -- Function: COPY-ARRAY-PORTION (x,y,i1,i2,n1) Package:SI Copy elements from X to Y starting at X[i1] to Y[i2] and doing N1 elements if N1 is supplied otherwise, doing the length of @@ -5761,12 +5740,12 @@ File: gcl-si.info, Node: GCL Specific, Next: C Interface, Prev: Type, Up: To has implementation dependent results. -- Function: BYE ( &optional (exit-status 0)) - Package:LISP + Package:SI GCL specific: Exits from GCL with exit-status. -- Function: USE-FAST-LINKS (turn-on) - Package:LISP + Package:SI GCL specific: If TURN-ON is not nil, the fast link mechanism is enabled, so that ordinary function calls will not appear in the @@ -5841,7 +5820,6 @@ parentheses. m (- (* (- i 1) (- (* 2 i) 1) (- (* 2 i) 3))) tt (truncate (* m tt) (* d (the integer (expt i 3)))))))) -  File: gcl-si.info, Node: C Interface, Next: System Definitions, Prev: GCL Specific, Up: Top @@ -5897,7 +5875,7 @@ File: gcl-si.info, Node: External Shared Libraries, Prev: C Interface, Up: C Complex float and complex double types can be access via: - :fcomplex :dcomples + :fcomplex :dcomplex Pointers to types available are @@ -6385,7 +6363,6 @@ File: gcl-si.info, Node: External Shared Libraries, Prev: C Interface, Up: C > -  File: gcl-si.info, Node: System Definitions, Next: Debugging, Prev: C Interface, Up: Top @@ -6425,12 +6402,6 @@ File: gcl-si.info, Node: System Definitions, Next: Debugging, Prev: C Interfa that it will only check for types which currently include NAME. After calling this the defstruct should not be altered. - -- Function: MAXIMUM-ALLOCATABLE-PAGES (type) - Package:SI - - GCL specific: Returns the current maximum number of pages for the - type class of the GCL implementation type TYPE. - -- Function: ALLOCATED-RELOCATABLE-PAGES () Package:SI @@ -6442,12 +6413,6 @@ File: gcl-si.info, Node: System Definitions, Next: Debugging, Prev: C Interfa Give SYMBOL the VALUE on INDICATOR property. - -- Function: ALLOCATED-PAGES (type) - Package:SI - - GCL specific: Returns the number of pages currently allocated for - the type class of the GCL implementation type TYPE. - -- Function: ALLOCATE-RELOCATABLE-PAGES (number) Package:SI @@ -6717,17 +6682,6 @@ File: gcl-si.info, Node: System Definitions, Next: Debugging, Prev: C Interfa records how many times the garbage collector has been called for each implementation type. - -- Function: CATCH-BAD-SIGNALS () - Package:SI - - GCL/BSD specific: Installs a signal catcher for bad signals: - SIGILL, SIGIOT, SIGEMT, SIGBUS, SIGSEGV, SIGSYS. The signal - catcher, upon catching the signal, signals an error (and enter the - break-level). Since the internal memory of GCL may be broken, the - user should check the signal and exit from GCL if necessary. When - the signal is caught during garbage collection, GCL terminates - immediately. - -- Function: RESET-STACK-LIMITS () Package:SI @@ -6741,7 +6695,7 @@ File: gcl-si.info, Node: System Definitions, Next: Debugging, Prev: C Interfa non-NIL, the garbage collector prints some information on the terminal. Usually SI:*GBC-MESSAGE* should be set NIL. - -- Variable: *GBC-NOTIFY* + -- Variable: *NOTIFY-GBC* Package:SI GCL specific: If the value is non-NIL, the garbage collector prints a very brief one line message about the area causing the collection, and the time spent in internal time units. @@ -6751,7 +6705,7 @@ File: gcl-si.info, Node: System Definitions, Next: Debugging, Prev: C Interfa argument TYPE which is a lisp variable indicating the TYPE which caused the current collection. - -- Funcition: ALLOCATED (type) + -- Function: ALLOCATED (type) Package:SI Returns 6 values: @@ -6835,11 +6789,6 @@ File: gcl-si.info, Node: System Definitions, Next: Debugging, Prev: C Interfa as closing files and resetting io streams. It would not be possible to continue normally. - -- Function: UNCATCH-BAD-SIGNALS () - Package:SI - - GCL/BSD specific: Undoes the effect of SI:CATCH-BAD-SIGNALS. - -- Function: VS (i) Package:SI @@ -6857,11 +6806,6 @@ File: gcl-si.info, Node: System Definitions, Next: Debugging, Prev: C Interfa GCL specific: Returns the FIXNUM-th argument on the command line that invoked the GCL process. - -- Variable: *DEFAULT-TIME-ZONE* - Package:SI GCL specific: Holds the default time zone. The initial - value of SI:*DEFAULT- TIME-ZONE* is 6 (the time zone of Austin, - Texas). - -- Function: GETENV (string) Package:SI @@ -6898,7 +6842,7 @@ File: gcl-si.info, Node: System Definitions, Next: Debugging, Prev: C Interfa GCL specific: Starts the standard top-level listener of GCL. When the GCL process is invoked, it calls SI:TOP-LEVEL by (FUNCALL - 'SI:TOP-LEVEL). To change the top-level of GCL, redefine + 'SI:TOP-LEVEL). To change the top-level of GCL, redefine SI:TOP-LEVEL and save the core imange in a file. When the saved imange is invoked, it will start the redefined top-level. @@ -6908,38 +6852,6 @@ File: gcl-si.info, Node: System Definitions, Next: Debugging, Prev: C Interfa GCL specific: Returns the value stack index of the i-th entity in the frame stack. - -- Function: WRITE-DEBUG-SYMBOLS (start file &key (main-file - "/usr/local/schelter/xgcl/unixport/raw_gcl") (output-file - "debug-symbols.o" )) - Package:SI - - Write out a file of debug-symbols using address START as the place - where FILE will be loaded into the running executable MAIN-FILE. - The last is a keyword argument. - - -- Function: PROF (x y) - Package:SI - - These functions in the SI package are GCL specific, and allow - monitoring the run time of functions loaded into GCL, as well as - the basic functions. Sample Usage: (si::set-up-profile 1000000) - (si::prof 0 90) run program (si::prof 0 0) ;; turn off profile - (si::display-prof) (si::clear-profile) (si::prof 0 90) ;; start - profile again run program .. Profile can be stopped with (si::prof - 0 0) and restarted with (si::prof 0 90) The START-ADDRESS will - correspond to the beginning of the profile array, and the SCALE - will mean that 256 bytes of code correspond to SCALE bytes in the - profile array. - - Thus if the profile array is 1,000,000 bytes long and the code - segment is 5 megabytes long you can profile the whole thing using a - scale of 50 Note that long runs may result in overflow, and so an - understating of the time in a function. - - You must run intensively however since, with a scale of 128 it - takes 6,000,000 times through a loop to overflow the sampling in - one part of the code. - -- Function: CATCH-FATAL (i) Package:SI @@ -7034,7 +6946,7 @@ File: gcl-si.info, Node: System Definitions, Next: Debugging, Prev: C Interfa If MIN-PAGES is 0, then this type will not be swept by SGC. Otherwise this is the minimum number of pages to make available to - SGC. MAX-PAGES is the upper limit of such pages. Only pages with + SGC. MAX-PAGES is the upper limit of such pages. Only pages with PERCENT-FREE objects on them, will be assigned to SGC. A list of the previous values for min, max and percent are returned. @@ -7397,7 +7309,6 @@ example: (match-beginning 3) ==> -1 (match-end 3) ==> -1 - In the above example the return value of ‘1’ (which is ‘> -1’) indicates that a match was found. The entire match runs from 1 to 4. Rule 4 specifies that (ab|a) gets first shot at the input string and @@ -7642,7 +7553,7 @@ File: gcl-si.info, Node: Compiler Definitions, Next: JAPI GUI Library Binding, (compile-file "foo2.lisp") This would create foo1.fn and foo2.fn. These may be loaded using - LOAD. Each time compile-file is called the data base is cleared. + LOAD. Each time compile-file is called the data base is cleared. Immediately after the compilation, the data base consists of data from the compilation. Thus if you wished to find functions called but not defined in the current file, you could do @@ -7693,8 +7604,7 @@ File: gcl-si.info, Node: Compiler Definitions, Next: JAPI GUI Library Binding, or (mapcar 'load (directory "*.fn")) (compiler::list-undefined-functions) - - -- Function: COMPILER-DEFAULT-TYPE (pathname) + -- Function: *COMPILER-DEFAULT-TYPE* (pathname) Package:COMPILER Allows you to set the default file extension for compiler source @@ -7737,13 +7647,6 @@ File: gcl-si.info, Node: Compiler Definitions, Next: JAPI GUI Library Binding, > - - -- Function: COMPILER-RESET-TYPE () - Package:COMPILER - - Resets the default compiler input file extension to the GCL - historical value of #".lsp". - -- Variable: *CC* Package:COMPILER Has value a string which controls which C compiler is used by GCL. Usually this string is obtained from the @@ -8290,8 +8193,10 @@ Appendix A Function Index * -: User Interface. (line 10) * *: Numbers. (line 557) -* *MAKE-CONSTANT: System Definitions. (line 292) -* *MAKE-SPECIAL: System Definitions. (line 387) +* *COMPILER-DEFAULT-TYPE*: Compiler Definitions. + (line 86) +* *MAKE-CONSTANT: System Definitions. (line 280) +* *MAKE-SPECIAL: System Definitions. (line 364) * /: Numbers. (line 199) * /=: Numbers. (line 72) * +: Numbers. (line 658) @@ -8303,26 +8208,25 @@ Appendix A Function Index * 1-: Numbers. (line 411) * 1+: Numbers. (line 208) * ABS: Numbers. (line 707) -* ACCEPT: System Definitions. (line 894) +* ACCEPT: System Definitions. (line 829) * ACCEPT-SOCKET-CONNECTION: System Definitions. (line 18) * ACONS: Lists. (line 254) * ACOS: Numbers. (line 603) * ACOSH: Numbers. (line 631) -* ADDRESS: System Definitions. (line 405) +* ADDRESS: System Definitions. (line 382) * ADJOIN: Lists. (line 383) * ADJUST-ARRAY: Sequences and Arrays and Hash Tables. (line 549) * ADJUSTABLE-ARRAY-P: Sequences and Arrays and Hash Tables. (line 250) -* ALLOCATE: GCL Specific. (line 108) +* ALLOCATE: GCL Specific. (line 102) * ALLOCATE-CONTIGUOUS-PAGES: System Definitions. (line 24) -* ALLOCATE-GROWTH: System Definitions. (line 652) -* ALLOCATE-RELOCATABLE-PAGES: System Definitions. (line 62) -* ALLOCATE-SGC: System Definitions. (line 643) -* ALLOCATED: System Definitions. (line 365) -* ALLOCATED-CONTIGUOUS-PAGES: System Definitions. (line 68) -* ALLOCATED-PAGES: System Definitions. (line 56) -* ALLOCATED-RELOCATABLE-PAGES: System Definitions. (line 45) +* ALLOCATE-GROWTH: System Definitions. (line 587) +* ALLOCATE-RELOCATABLE-PAGES: System Definitions. (line 50) +* ALLOCATE-SGC: System Definitions. (line 578) +* ALLOCATED: System Definitions. (line 342) +* ALLOCATED-CONTIGUOUS-PAGES: System Definitions. (line 56) +* ALLOCATED-RELOCATABLE-PAGES: System Definitions. (line 39) * ALPHA-CHAR-P: Characters. (line 151) * ALPHANUMERICP: Characters. (line 230) * AND: Special Forms and Functions. @@ -8336,8 +8240,8 @@ Appendix A Function Index * APROPOS-LIST: Symbols. (line 315) * AREF: Sequences and Arrays and Hash Tables. (line 634) -* ARGC: System Definitions. (line 418) -* ARGV: System Definitions. (line 465) +* ARGC: System Definitions. (line 395) +* ARGV: System Definitions. (line 437) * ARRAY-DIMENSION: Sequences and Arrays and Hash Tables. (line 108) * ARRAY-DIMENSIONS: Sequences and Arrays and Hash Tables. @@ -8366,8 +8270,8 @@ Appendix A Function Index * ATAN: Numbers. (line 456) * ATANH: Numbers. (line 471) * ATOM: Lists. (line 559) -* BDS-VAL: System Definitions. (line 302) -* BDS-VAR: System Definitions. (line 109) +* BDS-VAL: System Definitions. (line 290) +* BDS-VAR: System Definitions. (line 97) * BIT: Sequences and Arrays and Hash Tables. (line 618) * BIT-AND: Numbers. (line 284) @@ -8395,10 +8299,9 @@ Appendix A Function Index * BOTH-CASE-P: Characters. (line 20) * BOUNDP: Symbols. (line 230) * BREAK: User Interface. (line 120) -* BREAK-FUNCTION: System Definitions. (line 782) +* BREAK-FUNCTION: System Definitions. (line 717) * BUTLAST: Lists. (line 281) -* BY: GCL Specific. (line 39) -* BYE: GCL Specific. (line 219) +* BYE: GCL Specific. (line 212) * BYTE: Numbers. (line 251) * BYTE-POSITION: Numbers. (line 298) * BYTE-SIZE: Numbers. (line 341) @@ -8421,8 +8324,7 @@ Appendix A Function Index (line 528) * CATCH: Special Forms and Functions. (line 487) -* CATCH-BAD-SIGNALS: System Definitions. (line 331) -* CATCH-FATAL: System Definitions. (line 554) +* CATCH-FATAL: System Definitions. (line 489) * CCASE: Special Forms and Functions. (line 62) * CDAAAR: Lists. (line 482) @@ -8466,14 +8368,14 @@ Appendix A Function Index * CHAR>=: Characters. (line 115) * CHARACTER: Characters. (line 174) * CHARACTERP: Characters. (line 141) -* CHDIR: System Definitions. (line 251) +* CHDIR: System Definitions. (line 239) * CHECK-TYPE: Type. (line 39) * CIS: Numbers. (line 717) * CLEAR-INPUT: Streams and Reading. (line 284) * CLEAR-OUTPUT: Streams and Reading. (line 162) -* CLINES: GCL Specific. (line 93) +* CLINES: GCL Specific. (line 87) * CLOSE: Streams and Reading. (line 393) -* CLOSE-FASD: System Definitions. (line 724) +* CLOSE-FASD: System Definitions. (line 659) * CLRHASH: Sequences and Arrays and Hash Tables. (line 412) * CODE-CHAR: Characters. (line 83) @@ -8481,14 +8383,10 @@ Appendix A Function Index * COMMONP: Type. (line 27) * COMPILE: Compilation. (line 6) * COMPILE-FILE: Compilation. (line 77) -* COMPILED-FUNCTION-NAME: System Definitions. (line 125) +* COMPILED-FUNCTION-NAME: System Definitions. (line 113) * COMPILED-FUNCTION-P: Compilation. (line 196) -* COMPILER-DEFAULT-TYPE: Compiler Definitions. - (line 87) * COMPILER-LET: Special Forms and Functions. (line 559) -* COMPILER-RESET-TYPE: Compiler Definitions. - (line 131) * COMPLEX: Numbers. (line 568) * COMPLEXP: Numbers. (line 507) * CONCATENATE: Sequences and Arrays and Hash Tables. @@ -8500,12 +8398,12 @@ Appendix A Function Index * CONSP: Lists. (line 55) * CONSTANTP: Type. (line 16) * COPY-ALIST: Lists. (line 287) -* COPY-ARRAY-PORTION: GCL Specific. (line 213) +* COPY-ARRAY-PORTION: GCL Specific. (line 206) * COPY-LIST: Lists. (line 190) * COPY-READTABLE: Streams and Reading. (line 447) * COPY-SEQ: Sequences and Arrays and Hash Tables. (line 17) -* COPY-STREAM: System Definitions. (line 257) +* COPY-STREAM: System Definitions. (line 245) * COPY-SYMBOL: Symbols. (line 131) * COPY-TREE: Lists. (line 554) * COS: Numbers. (line 443) @@ -8518,26 +8416,26 @@ Appendix A Function Index (line 380) * CTYPECASE: Special Forms and Functions. (line 733) -* DBL: System Definitions. (line 768) +* DBL: System Definitions. (line 703) * DECF: Numbers. (line 448) * DECLARE: Special Forms and Functions. (line 173) * DECODE-FLOAT: Numbers. (line 366) * DECODE-UNIVERSAL-TIME: Operating System Definitions. (line 42) -* DEFCFUN: GCL Specific. (line 44) +* DEFCFUN: GCL Specific. (line 39) * DEFCONSTANT: Special Forms and Functions. (line 675) * DEFDLFUN: External Shared Libraries. (line 6) -* DEFENTRY: GCL Specific. (line 159) -* DEFINE-COMPILER-MACRO: System Definitions. (line 760) -* DEFINE-INLINE-FUNCTION: System Definitions. (line 750) +* DEFENTRY: GCL Specific. (line 153) +* DEFINE-COMPILER-MACRO: System Definitions. (line 695) +* DEFINE-INLINE-FUNCTION: System Definitions. (line 685) * DEFINE-MODIFY-MACRO: Special Forms and Functions. (line 497) * DEFINE-SETF-METHOD: Special Forms and Functions. (line 539) -* DEFLA: GCL Specific. (line 142) +* DEFLA: GCL Specific. (line 136) * DEFMACRO: Special Forms and Functions. (line 216) * DEFPARAMETER: Special Forms and Functions. @@ -8569,7 +8467,7 @@ Appendix A Function Index (line 67) * DIRECTORY-NAMESTRING: Streams and Reading. (line 455) * DISASSEMBLE: Characters. (line 59) -* DISPLACED-ARRAY-P: System Definitions. (line 459) +* DISPLACED-ARRAY-P: System Definitions. (line 431) * DO: Streams and Reading. (line 188) * DO-ALL-SYMBOLS: Iteration and Tests. (line 28) * DO-EXTERNAL-SYMBOLS: Iteration and Tests. (line 6) @@ -8602,7 +8500,7 @@ Appendix A Function Index * EQUALP: Iteration and Tests. (line 74) * ERROR: Special Forms and Functions. (line 691) -* ERROR-SET: System Definitions. (line 115) +* ERROR-SET: System Definitions. (line 103) * ETYPECASE: Special Forms and Functions. (line 120) * EVAL: Special Forms and Functions. @@ -8616,12 +8514,12 @@ Appendix A Function Index * EXP: Numbers. (line 360) * EXPORT: Symbols. (line 208) * EXPT: Numbers. (line 616) -* FASLINK: System Definitions. (line 483) +* FASLINK: System Definitions. (line 450) * FBOUNDP: Symbols. (line 164) * FCEILING: Numbers. (line 216) * FFLOOR: Numbers. (line 642) * FIFTH: Lists. (line 40) -* FILE: System Definitions. (line 220) +* FILE: System Definitions. (line 208) * FILE-AUTHOR: Operating System Definitions. (line 24) * FILE-LENGTH: Streams and Reading. (line 102) @@ -8641,11 +8539,11 @@ Appendix A Function Index * FIND-IF-NOT: Sequences and Arrays and Hash Tables. (line 695) * FIND-PACKAGE: Symbols. (line 307) -* FIND-SHARING-TOP: System Definitions. (line 736) +* FIND-SHARING-TOP: System Definitions. (line 671) * FIND-SYMBOL: Symbols. (line 149) * FINISH-OUTPUT: Streams and Reading. (line 172) * FIRST: Lists. (line 372) -* FIXNUMP: System Definitions. (line 297) +* FIXNUMP: System Definitions. (line 285) * FLET: Special Forms and Functions. (line 264) * FLOAT: Numbers. (line 534) @@ -8659,15 +8557,15 @@ Appendix A Function Index * FORCE-OUTPUT: Streams and Reading. (line 126) * FORMAT: Streams and Reading. (line 519) * FOURTH: Lists. (line 318) -* FP-INPUT-STREAM: System Definitions. (line 798) -* FP-OUTPUT-STREAM: System Definitions. (line 804) -* FREAD: System Definitions. (line 598) +* FP-INPUT-STREAM: System Definitions. (line 733) +* FP-OUTPUT-STREAM: System Definitions. (line 739) +* FREAD: System Definitions. (line 533) * FREEZE-DEFSTRUCT: System Definitions. (line 32) * FRESH-LINE: Streams and Reading. (line 488) * FROUND: Numbers. (line 380) -* FRS-BDS: System Definitions. (line 280) -* FRS-IHS: System Definitions. (line 318) -* FRS-VS: System Definitions. (line 516) +* FRS-BDS: System Definitions. (line 268) +* FRS-IHS: System Definitions. (line 306) +* FRS-VS: System Definitions. (line 483) * FTRUNCATE: Numbers. (line 169) * FUNCALL: Special Forms and Functions. (line 518) @@ -8675,9 +8573,9 @@ Appendix A Function Index (line 354) * FUNCTIONP: Special Forms and Functions. (line 253) -* FWRITE: System Definitions. (line 590) -* GBC: GCL Specific. (line 116) -* GBC-TIME: System Definitions. (line 581) +* FWRITE: System Definitions. (line 525) +* GBC: GCL Specific. (line 110) +* GBC-TIME: System Definitions. (line 516) * GCD: Numbers. (line 763) * GENSYM: Symbols. (line 6) * GENTEMP: Symbols. (line 247) @@ -8685,7 +8583,7 @@ Appendix A Function Index * GET-DECODED-TIME: Operating System Definitions. (line 6) * GET-DISPATCH-MACRO-CHARACTER: Streams and Reading. (line 470) -* GET-HOLE-SIZE: System Definitions. (line 80) +* GET-HOLE-SIZE: System Definitions. (line 68) * GET-INTERNAL-REAL-TIME: Operating System Definitions. (line 169) * GET-INTERNAL-RUN-TIME: Operating System Definitions. @@ -8697,17 +8595,16 @@ Appendix A Function Index (line 9) * GET-SETF-METHOD-MULTIPLE-VALUE: Special Forms and Functions. (line 480) -* GET-STRING-INPUT-STREAM-INDEX: System Definitions. (line 98) +* GET-STRING-INPUT-STREAM-INDEX: System Definitions. (line 86) * GET-UNIVERSAL-TIME: Operating System Definitions. (line 144) -* GETENV: System Definitions. (line 476) +* GETENV: System Definitions. (line 443) * GETF: Lists. (line 424) * GETHASH: Sequences and Arrays and Hash Tables. (line 297) * GO: Special Forms and Functions. (line 604) * GPROF-QUIT: Compilation. (line 210) -* GPROF-SET: Compilation. (line 221) * GPROF-START: Compilation. (line 201) * GRAPHIC-CHAR-P: Characters. (line 124) * HASH-TABLE-COUNT: Sequences and Arrays and Hash Tables. @@ -8715,21 +8612,21 @@ Appendix A Function Index * HASH-TABLE-P: Sequences and Arrays and Hash Tables. (line 375) * HELP: Structures. (line 33) -* HELP*: GCL Specific. (line 133) +* HELP*: GCL Specific. (line 127) * HOST-NAMESTRING: Operating System Definitions. (line 13) * IDENTITY: Special Forms and Functions. (line 665) * IF: Special Forms and Functions. (line 696) -* IHS-FUN: System Definitions. (line 286) -* IHS-VS: System Definitions. (line 136) +* IHS-FUN: System Definitions. (line 274) +* IHS-VS: System Definitions. (line 124) * IMAGPART: Numbers. (line 422) * IMPORT: Symbols. (line 278) * IN-PACKAGE: Symbols. (line 176) * INCF: Numbers. (line 115) * INFO: Doc. (line 12) -* INIT-SYSTEM: System Definitions. (line 263) +* INIT-SYSTEM: System Definitions. (line 251) * INPUT-STREAM-P: Streams and Reading. (line 410) * INSPECT: User Interface. (line 82) * INT-CHAR: Numbers. (line 58) @@ -8737,7 +8634,7 @@ Appendix A Function Index * INTEGER-LENGTH: Numbers. (line 581) * INTEGERP: Numbers. (line 427) * INTERN: Symbols. (line 201) -* INTERPRET: System Definitions. (line 228) +* INTERPRET: System Definitions. (line 216) * INTERSECTION: Lists. (line 215) * ISQRT: Numbers. (line 732) * KEYWORDP: Symbols. (line 14) @@ -8824,7 +8721,7 @@ Appendix A Function Index * MAKE-STRING-INPUT-STREAM: Streams and Reading. (line 48) * MAKE-STRING-INPUT-STREAM <1>: User Interface. (line 29) * MAKE-STRING-OUTPUT-STREAM: Streams and Reading. (line 583) -* MAKE-STRING-OUTPUT-STREAM-FROM-STRING: System Definitions. (line 392) +* MAKE-STRING-OUTPUT-STREAM-FROM-STRING: System Definitions. (line 369) * MAKE-SYMBOL: Symbols. (line 67) * MAKE-SYNONYM-STREAM: Streams and Reading. (line 589) * MAKE-TWO-WAY-STREAM: Streams and Reading. (line 437) @@ -8839,11 +8736,10 @@ Appendix A Function Index * MAPL: Lists. (line 113) * MAPLIST: Lists. (line 524) * MASK-FIELD: Numbers. (line 110) -* MATCH-BEGINNING: System Definitions. (line 854) -* MATCH-END: System Definitions. (line 861) +* MATCH-BEGINNING: System Definitions. (line 789) +* MATCH-END: System Definitions. (line 796) * MAX: Numbers. (line 515) -* MAXIMUM-ALLOCATABLE-PAGES: System Definitions. (line 39) -* MAXIMUM-CONTIGUOUS-PAGES: System Definitions. (line 74) +* MAXIMUM-CONTIGUOUS-PAGES: System Definitions. (line 62) * MEMBER: Lists. (line 590) * MEMBER-IF: Lists. (line 548) * MEMBER-IF-NOT: Lists. (line 454) @@ -8868,12 +8764,12 @@ Appendix A Function Index (line 648) * NAME-CHAR: Characters. (line 6) * NAMESTRING: Streams and Reading. (line 382) -* NANI: System Definitions. (line 424) +* NANI: System Definitions. (line 401) * NBUTLAST: Lists. (line 97) * NCONC: Lists. (line 45) * NINTERSECTION: Lists. (line 6) * NINTH: Lists. (line 477) -* NLOAD: System Definitions. (line 775) +* NLOAD: System Definitions. (line 710) * NOT: Special Forms and Functions. (line 670) * NOTANY: Sequences and Arrays and Hash Tables. @@ -8909,12 +8805,12 @@ Appendix A Function Index * NUNION: Lists. (line 274) * ODDP: Numbers. (line 722) * OPEN: Streams and Reading. (line 22) -* OPEN-FASD: System Definitions. (line 684) +* OPEN-FASD: System Definitions. (line 619) * OPEN-NAMED-SOCKET: System Definitions. (line 11) * OR: Special Forms and Functions. (line 723) * OUTPUT-STREAM-P: Streams and Reading. (line 252) -* OUTPUT-STREAM-STRING: System Definitions. (line 92) +* OUTPUT-STREAM-STRING: System Definitions. (line 80) * PACKAGE-NAME: Symbols. (line 302) * PACKAGE-NICKNAMES: Symbols. (line 273) * PACKAGE-SHADOWING-SYMBOLS: Symbols. (line 195) @@ -8951,8 +8847,7 @@ Appendix A Function Index * PRINT: Streams and Reading. (line 112) * PROBE-FILE: Streams and Reading. (line 643) * PROCLAIM: Compilation. (line 184) -* PROCLAMATION: GCL Specific. (line 152) -* PROF: System Definitions. (line 531) +* PROCLAMATION: GCL Specific. (line 146) * PROG: Special Forms and Functions. (line 613) * PROG*: Special Forms and Functions. @@ -8971,7 +8866,7 @@ Appendix A Function Index * PSETQ: Symbols. (line 73) * PUSH: Lists. (line 349) * PUSHNEW: Lists. (line 395) -* PUTPROP: System Definitions. (line 51) +* PUTPROP: System Definitions. (line 45) * QUOTE: Special Forms and Functions. (line 308) * RANDOM: Numbers. (line 809) @@ -8987,7 +8882,7 @@ Appendix A Function Index * READ-CHAR: Streams and Reading. (line 239) * READ-CHAR-NO-HANG: Streams and Reading. (line 481) * READ-DELIMITED-LIST: Streams and Reading. (line 677) -* READ-FASD-TOP: System Definitions. (line 717) +* READ-FASD-TOP: System Definitions. (line 652) * READ-FROM-STRING: Streams and Reading. (line 203) * READ-LINE: Streams and Reading. (line 318) * READ-PRESERVING-WHITESPACE: Streams and Reading. (line 72) @@ -9017,8 +8912,8 @@ Appendix A Function Index (line 396) * REQUIRE: Operating System Definitions. (line 90) -* RESET-GBC-COUNT: System Definitions. (line 324) -* RESET-STACK-LIMITS: System Definitions. (line 342) +* RESET-GBC-COUNT: System Definitions. (line 312) +* RESET-STACK-LIMITS: System Definitions. (line 319) * REST: Lists. (line 242) * RETURN: Special Forms and Functions. (line 429) @@ -9033,9 +8928,9 @@ Appendix A Function Index * ROUND: Numbers. (line 543) * RPLACA: Lists. (line 264) * RPLACD: Lists. (line 449) -* RUN-PROCESS: System Definitions. (line 828) -* SAVE: GCL Specific. (line 124) -* SAVE-SYSTEM: System Definitions. (line 437) +* RUN-PROCESS: System Definitions. (line 763) +* SAVE: GCL Specific. (line 118) +* SAVE-SYSTEM: System Definitions. (line 414) * SBIT: Sequences and Arrays and Hash Tables. (line 34) * SCALE-FLOAT: Numbers. (line 626) @@ -9048,21 +8943,21 @@ Appendix A Function Index * SET-DIFFERENCE: Lists. (line 530) * SET-DISPATCH-MACRO-CHARACTER: Streams and Reading. (line 85) * SET-EXCLUSIVE-OR: Lists. (line 407) -* SET-HOLE-SIZE: System Definitions. (line 275) -* SET-LOG-MAXPAGE-BOUND: GCL Specific. (line 102) +* SET-HOLE-SIZE: System Definitions. (line 263) +* SET-LOG-MAXPAGE-BOUND: GCL Specific. (line 96) * SET-MACRO-CHARACTER: Streams and Reading. (line 119) * SET-SYNTAX-FROM-CHAR: Streams and Reading. (line 403) * SETF: Special Forms and Functions. (line 27) * SETQ: Symbols. (line 101) * SEVENTH: Lists. (line 173) -* SGC-ON: System Definitions. (line 607) +* SGC-ON: System Definitions. (line 542) * SHADOW: Symbols. (line 157) * SHADOWING-IMPORT: Symbols. (line 36) * SHIFTF: Numbers. (line 265) * SHORT-SITE-NAME: Operating System Definitions. (line 61) -* SIGNATURE: System Definitions. (line 224) +* SIGNATURE: System Definitions. (line 212) * SIGNUM: Numbers. (line 6) * SIMPLE-BIT-VECTOR-P: Sequences and Arrays and Hash Tables. (line 568) @@ -9076,7 +8971,7 @@ Appendix A Function Index * SLEEP: Operating System Definitions. (line 201) * SOCKET: System Definitions. (line 6) -* SOCKET <1>: System Definitions. (line 864) +* SOCKET <1>: System Definitions. (line 799) * SOFTWARE-TYPE: Operating System Definitions. (line 189) * SOFTWARE-VERSION: Operating System Definitions. @@ -9087,7 +8982,7 @@ Appendix A Function Index (line 371) * SPECIAL-FORM-P: Special Forms and Functions. (line 325) -* SPECIALP: System Definitions. (line 86) +* SPECIALP: System Definitions. (line 74) * SQRT: Numbers. (line 621) * STABLE-SORT: Sequences and Arrays and Hash Tables. (line 645) @@ -9100,7 +8995,7 @@ Appendix A Function Index * STRING-CAPITALIZE: Sequences and Arrays and Hash Tables. (line 39) * STRING-CHAR-P: Characters. (line 45) -* STRING-CONCATENATE: System Definitions. (line 103) +* STRING-CONCATENATE: System Definitions. (line 91) * STRING-DOWNCASE: Sequences and Arrays and Hash Tables. (line 611) * STRING-EQUAL: Sequences and Arrays and Hash Tables. @@ -9111,7 +9006,7 @@ Appendix A Function Index (line 684) * STRING-LESSP: Sequences and Arrays and Hash Tables. (line 746) -* STRING-MATCH: System Definitions. (line 842) +* STRING-MATCH: System Definitions. (line 777) * STRING-NOT-EQUAL: Sequences and Arrays and Hash Tables. (line 120) * STRING-NOT-GREATERP: Sequences and Arrays and Hash Tables. @@ -9120,7 +9015,7 @@ Appendix A Function Index (line 623) * STRING-RIGHT-TRIM: Sequences and Arrays and Hash Tables. (line 126) -* STRING-TO-OBJECT: System Definitions. (line 308) +* STRING-TO-OBJECT: System Definitions. (line 296) * STRING-TRIM: Sequences and Arrays and Hash Tables. (line 478) * STRING-UPCASE: Sequences and Arrays and Hash Tables. @@ -9139,7 +9034,7 @@ Appendix A Function Index (line 94) * STRINGP: Sequences and Arrays and Hash Tables. (line 206) -* STRUCTUREP: System Definitions. (line 130) +* STRUCTUREP: System Definitions. (line 118) * SUBLIS: Lists. (line 507) * SUBSEQ: Sequences and Arrays and Hash Tables. (line 11) @@ -9178,7 +9073,7 @@ Appendix A Function Index (line 759) * TIME: Operating System Definitions. (line 181) -* TOP-LEVEL: System Definitions. (line 507) +* TOP-LEVEL: System Definitions. (line 474) * TRACE: User Interface. (line 131) * TREE-EQUAL: Lists. (line 414) * TRUENAME: Streams and Reading. (line 460) @@ -9187,21 +9082,20 @@ Appendix A Function Index * TYPECASE: Special Forms and Functions. (line 439) * TYPEP: Type. (line 22) -* UNCATCH-BAD-SIGNALS: System Definitions. (line 449) * UNEXPORT: Symbols. (line 267) * UNINTERN: Symbols. (line 260) * UNION: Lists. (line 438) -* UNIVERSAL-ERROR-HANDLER: System Definitions. (line 142) +* UNIVERSAL-ERROR-HANDLER: System Definitions. (line 130) * UNLESS: Special Forms and Functions. (line 639) * UNREAD-CHAR: Streams and Reading. (line 387) * UNTRACE: User Interface. (line 16) * UNUSE-PACKAGE: Symbols. (line 112) -* UNWATCH: System Definitions. (line 241) +* UNWATCH: System Definitions. (line 229) * UNWIND-PROTECT: Special Forms and Functions. (line 706) * UPPER-CASE-P: Characters. (line 157) -* USE-FAST-LINKS: GCL Specific. (line 224) +* USE-FAST-LINKS: GCL Specific. (line 217) * USE-PACKAGE: Symbols. (line 59) * USER-HOMEDIR-PATHNAME: Operating System Definitions. (line 51) @@ -9219,9 +9113,9 @@ Appendix A Function Index (line 260) * VECTORP: Sequences and Arrays and Hash Tables. (line 666) -* VS: System Definitions. (line 454) +* VS: System Definitions. (line 426) * WARN: User Interface. (line 114) -* WATCH: System Definitions. (line 234) +* WATCH: System Definitions. (line 222) * WHEN: Special Forms and Functions. (line 53) * WITH-INPUT-FROM-STRING: Streams and Reading. (line 273) @@ -9231,14 +9125,13 @@ Appendix A Function Index * WRITE: Streams and Reading. (line 661) * WRITE-BYTE: Streams and Reading. (line 139) * WRITE-CHAR: Streams and Reading. (line 494) -* WRITE-DEBUG-SYMBOLS: System Definitions. (line 522) -* WRITE-FASD-TOP: System Definitions. (line 712) +* WRITE-FASD-TOP: System Definitions. (line 647) * WRITE-LINE: Streams and Reading. (line 654) * WRITE-STRING: Streams and Reading. (line 210) * WRITE-TO-STRING: Streams and Reading. (line 356) -* XDR-OPEN: System Definitions. (line 790) -* XDR-READ: System Definitions. (line 810) -* XDR-WRITE: System Definitions. (line 817) +* XDR-OPEN: System Definitions. (line 725) +* XDR-READ: System Definitions. (line 745) +* XDR-WRITE: System Definitions. (line 752) * Y-OR-N-P: Streams and Reading. (line 224) * YES-OR-NO-P: Iteration and Tests. (line 38) * ZEROP: Numbers. (line 480) diff --git a/info/gcl-tk.info b/info/gcl-tk.info index e8086c0..7b338a1 100644 --- a/info/gcl-tk.info +++ b/info/gcl-tk.info @@ -1,4 +1,4 @@ -This is gcl-tk.info, produced by makeinfo version 7.1 from gcl-tk.texi. +This is gcl-tk.info, produced by makeinfo version 7.2 from gcl-tk.texi. This is a Texinfo GCL TK Manual @@ -12,7 +12,7 @@ END-INFO-DIR-ENTRY  Indirect: gcl-tk.info-1: 270 -gcl-tk.info-2: 302275 +gcl-tk.info-2: 302276  Tag Table: (Indirect) diff --git a/info/gcl-tk.info-1 b/info/gcl-tk.info-1 index d62e0cb..b6e9d91 100644 --- a/info/gcl-tk.info-1 +++ b/info/gcl-tk.info-1 @@ -1,4 +1,4 @@ -This is gcl-tk.info, produced by makeinfo version 7.1 from gcl-tk.texi. +This is gcl-tk.info, produced by makeinfo version 7.2 from gcl-tk.texi. This is a Texinfo GCL TK Manual @@ -6650,3 +6650,4 @@ Keywords -------- geometry manager, location, packer, parcel, propagation, size + diff --git a/info/gcl-tk.info-2 b/info/gcl-tk.info-2 index c39d23d..9004bb6 100644 --- a/info/gcl-tk.info-2 +++ b/info/gcl-tk.info-2 @@ -1,4 +1,4 @@ -This is gcl-tk.info, produced by makeinfo version 7.1 from gcl-tk.texi. +This is gcl-tk.info, produced by makeinfo version 7.2 from gcl-tk.texi. This is a Texinfo GCL TK Manual @@ -9,7 +9,6 @@ START-INFO-DIR-ENTRY * gcl-tk: (gcl-tk.info). GNU Common Lisp Tk Manual END-INFO-DIR-ENTRY -  File: gcl-tk.info, Node: place, Next: raise, Prev: pack, Up: Control @@ -1051,7 +1050,7 @@ wm :positionfrom window ?who? source has been set explicitly to program. wm :protocol window ?name? ?command? This command is used to manage window manager protocols such as - WM_DELETE_WINDOW. Name is the name of an atom corresponding to a + WM_DELETE_WINDOW. Name is the name of an atom corresponding to a window manager protocol, such as WM_DELETE_WINDOW or WM_SAVE_YOURSELF or WM_TAKE_FOCUS. If both name and command are specified, then command is associated with the protocol specified -- 2.30.2